home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.09 Sep 86.sit / 02.09 Sep 86 / TML paptest3 stuff / PapTest3.PAS < prev    next >
MacBinary  |  1991-12-09  |  3.1 KB  |  [TEXT/EDIT]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert TheDraw Pascal screen Image (image/theDrawPascalScreenImage) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Mon Dec 9 17:30:10 1991, modified Mon Dec 9 17:30:10 1991, creator Macintosh Edit, type ASCII, 2629 bytes "PapTest3.PAS" , at 0xac5 348 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[EDIT]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 50 61 70 54 65 73 | 74 33 2e 50 41 53 00 00 |..PapTes|t3.PAS..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 0a 45 00 | 00 01 5c a5 69 9e f2 a5 |......E.|..\.i...|
|00000060| 69 9e f2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |i.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 59 f9 00 00 |........|....Y...|
|00000080| 50 72 6f 67 72 61 6d 20 | 50 61 70 54 65 73 74 32 |Program |PapTest2|
|00000090| 3b 0d 0d 7b 20 42 79 20 | 44 2e 20 53 6d 69 74 68 |;..{ By |D. Smith|
|000000a0| 20 66 6f 72 20 4d 61 63 | 54 75 74 6f 72 7d 0d 7b | for Mac|Tutor}.{|
|000000b0| 20 55 73 65 73 20 6c 6f | 77 20 6c 65 76 65 6c 20 | Uses lo|w level |
|000000c0| 44 65 76 69 63 65 20 4d | 61 6e 61 67 65 72 7d 0d |Device M|anager}.|
|000000d0| 0d 7b 24 49 20 4d 65 6d | 54 79 70 65 73 2e 69 70 |.{$I Mem|Types.ip|
|000000e0| 61 73 20 20 7d 0d 7b 24 | 49 20 51 75 69 63 6b 44 |as  }.{$|I QuickD|
|000000f0| 72 61 77 2e 69 70 61 73 | 20 7d 0d 7b 24 49 20 4f |raw.ipas| }.{$I O|
|00000100| 53 49 6e 74 66 2e 69 70 | 61 73 20 20 20 20 7d 0d |SIntf.ip|as    }.|
|00000110| 7b 24 49 20 54 6f 6f 6c | 49 6e 74 66 2e 69 70 61 |{$I Tool|Intf.ipa|
|00000120| 73 20 20 7d 0d 7b 24 49 | 20 50 61 63 6b 49 6e 74 |s  }.{$I| PackInt|
|00000130| 66 2e 69 70 61 73 20 20 | 7d 0d 0d 7b 24 54 20 20 |f.ipas  |}..{$T  |
|00000140| 41 50 50 4c 20 3f 3f 3f | 3f 20 7d 0d 0d 56 41 52 |APPL ???|? }..VAR|
|00000150| 09 7b 67 6c 6f 62 61 6c | 20 70 72 6f 67 72 61 6d |.{global| program|
|00000160| 20 73 74 75 66 66 7d 0d | 20 20 09 0d 09 70 62 3a | stuff}.|  ...pb:|
|00000170| 09 50 61 72 6d 42 6c 6b | 50 74 72 3b 09 7b 69 6f |.ParmBlk|Ptr;.{io|
|00000180| 50 61 72 61 6d 20 42 6c | 6f 63 6b 7d 0d 09 0d 7b |Param Bl|ock}...{|
|00000190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001b0| 2d 2d 7d 0d 50 52 4f 43 | 45 44 55 52 45 20 43 6c |--}.PROC|EDURE Cl|
|000001c0| 6f 73 65 55 70 3b 0d 62 | 65 67 69 6e 09 0d 09 65 |oseUp;.b|egin...e|
|000001d0| 78 69 74 74 6f 73 68 65 | 6c 6c 3b 0d 65 6e 64 3b |xittoshe|ll;.end;|
|000001e0| 0d 7b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{------|--------|
|000001f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000200| 2d 2d 2d 2d 2d 7d 0d 50 | 52 4f 43 45 44 55 52 45 |-----}.P|ROCEDURE|
|00000210| 20 49 6e 69 74 49 74 3b | 0d 62 65 67 69 6e 20 20 | InitIt;|.begin  |
|00000220| 20 0d 20 20 20 49 6e 69 | 74 47 72 61 66 28 40 74 | .   Ini|tGraf(@t|
|00000230| 68 65 50 6f 72 74 29 3b | 20 20 20 20 20 20 20 20 |hePort);|        |
|00000240| 20 20 0d 20 20 20 49 6e | 69 74 46 6f 6e 74 73 3b |  .   In|itFonts;|
|00000250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000260| 20 20 20 20 0d 20 20 20 | 49 6e 69 74 57 69 6e 64 |    .   |InitWind|
|00000270| 6f 77 73 3b 20 20 20 20 | 20 20 20 20 20 20 20 20 |ows;    |        |
|00000280| 20 20 20 20 20 20 20 0d | 20 20 20 49 6e 69 74 4d |       .|   InitM|
|00000290| 65 6e 75 73 3b 20 20 20 | 20 20 20 20 20 20 20 20 |enus;   |        |
|000002a0| 20 20 20 20 20 20 20 20 | 20 20 0d 20 20 20 54 45 |        |  .   TE|
|000002b0| 49 6e 69 74 3b 20 20 20 | 20 20 20 20 20 20 20 20 |Init;   |        |
|000002c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 0d 20 20 |        |     .  |
|000002d0| 20 49 6e 69 74 44 69 61 | 6c 6f 67 73 28 4e 69 6c | InitDia|logs(Nil|
|000002e0| 29 3b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 0d |);      |       .|
|000002f0| 20 20 20 49 6e 69 74 43 | 75 72 73 6f 72 3b 0d 20 |   InitC|ursor;. |
|00000300| 20 20 46 6c 75 73 68 45 | 76 65 6e 74 73 28 65 76 |  FlushE|vents(ev|
|00000310| 65 72 79 45 76 65 6e 74 | 2c 30 29 3b 0d 65 6e 64 |eryEvent|,0);.end|
|00000320| 3b 0d 7b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;.{-----|--------|
|00000330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000340| 2d 2d 7d 0d 20 50 52 4f | 43 45 44 55 52 45 20 77 |--}. PRO|CEDURE w|
|00000350| 72 69 74 65 49 74 28 74 | 78 74 3a 73 74 72 32 35 |riteIt(t|xt:str25|
|00000360| 35 29 3b 0d 20 43 4f 4e | 53 54 0d 20 09 65 6f 6c |5);. CON|ST. .eol|
|00000370| 3d 31 33 3b 0d 20 76 61 | 72 0d 09 53 74 72 4c 65 |=13;. va|r..StrLe|
|00000380| 6e 3a 20 4c 6f 6e 67 49 | 6e 74 3b 0d 09 65 72 72 |n: LongI|nt;..err|
|00000390| 3a 09 6f 73 65 72 72 3b | 0d 09 43 52 3a 09 09 73 |:.oserr;|..CR:..s|
|000003a0| 74 72 32 35 35 3b 09 7b | 74 77 6f 20 62 79 74 65 |tr255;.{|two byte|
|000003b0| 73 3f 7d 0d 20 62 65 67 | 69 6e 0d 20 09 43 52 3a |s?}. beg|in. .CR:|
|000003c0| 3d 63 68 72 28 65 6f 6c | 29 3b 0d 20 09 53 74 72 |=chr(eol|);. .Str|
|000003d0| 4c 65 6e 3a 3d 6c 65 6e | 67 74 68 28 74 78 74 29 |Len:=len|gth(txt)|
|000003e0| 3b 0d 09 70 62 5e 2e 69 | 6f 52 65 71 43 6f 75 6e |;..pb^.i|oReqCoun|
|000003f0| 74 3a 3d 53 74 72 4c 65 | 6e 3b 0d 09 70 62 5e 2e |t:=StrLe|n;..pb^.|
|00000400| 69 6f 42 75 66 66 65 72 | 3a 3d 50 4f 49 4e 54 45 |ioBuffer|:=POINTE|
|00000410| 52 28 4f 52 44 28 40 74 | 78 74 29 2b 31 29 3b 0d |R(ORD(@t|xt)+1);.|
|00000420| 20 09 65 72 72 3a 3d 50 | 42 57 72 69 74 65 28 70 | .err:=P|BWrite(p|
|00000430| 62 2c 66 61 6c 73 65 29 | 3b 0d 09 53 74 72 4c 65 |b,false)|;..StrLe|
|00000440| 6e 3a 3d 6c 65 6e 67 74 | 68 28 43 52 29 3b 0d 09 |n:=lengt|h(CR);..|
|00000450| 70 62 5e 2e 69 6f 52 65 | 71 43 6f 75 6e 74 3a 3d |pb^.ioRe|qCount:=|
|00000460| 53 74 72 4c 65 6e 3b 0d | 09 70 62 5e 2e 69 6f 42 |StrLen;.|.pb^.ioB|
|00000470| 75 66 66 65 72 3a 3d 50 | 4f 49 4e 54 45 52 28 4f |uffer:=P|OINTER(O|
|00000480| 52 44 28 40 43 52 29 2b | 31 29 3b 09 0d 09 65 72 |RD(@CR)+|1);...er|
|00000490| 72 3a 3d 50 42 57 72 69 | 74 65 28 70 62 2c 66 61 |r:=PBWri|te(pb,fa|
|000004a0| 6c 73 65 29 3b 09 0d 20 | 65 6e 64 3b 20 0d 20 7b |lse);.. |end; . {|
|000004b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|000004d0| 0d 50 52 4f 43 45 44 55 | 52 45 20 4c 61 73 65 72 |.PROCEDU|RE Laser|
|000004e0| 49 74 3b 0d 76 61 72 0d | 09 44 72 76 72 4e 61 6d |It;.var.|.DrvrNam|
|000004f0| 65 3a 20 73 74 72 32 35 | 35 3b 0d 09 65 72 72 3a |e: str25|5;..err:|
|00000500| 6f 73 65 72 72 3b 0d 62 | 65 67 69 6e 09 0d 09 44 |oserr;.b|egin...D|
|00000510| 72 76 72 4e 61 6d 65 3a | 3d 27 2e 50 41 50 27 3b |rvrName:|='.PAP';|
|00000520| 0d 09 70 62 5e 2e 69 6f | 4e 61 6d 65 50 74 72 3a |..pb^.io|NamePtr:|
|00000530| 3d 40 44 72 76 72 4e 61 | 6d 65 3b 0d 09 70 62 5e |=@DrvrNa|me;..pb^|
|00000540| 2e 69 6f 50 65 72 6d 73 | 73 6e 3a 3d 32 3b 20 7b |.ioPerms|sn:=2; {|
|00000550| 77 72 69 74 65 20 6f 6e | 6c 79 7d 0d 09 70 62 5e |write on|ly}..pb^|
|00000560| 2e 69 6f 43 6f 6d 70 6c | 65 74 69 6f 6e 3a 3d 6e |.ioCompl|etion:=n|
|00000570| 69 6c 3b 0d 09 65 72 72 | 3a 3d 50 42 4f 70 65 6e |il;..err|:=PBOpen|
|00000580| 28 70 62 2c 66 61 6c 73 | 65 29 3b 0d 09 0d 09 7b |(pb,fals|e);....{|
|00000590| 20 70 75 74 20 79 6f 75 | 72 20 74 65 78 74 20 69 | put you|r text i|
|000005a0| 6e 20 50 6f 73 74 53 63 | 72 69 70 74 20 46 6f 72 |n PostSc|ript For|
|000005b0| 6d 61 74 21 7d 0d 20 09 | 77 72 69 74 65 49 74 28 |mat!}. .|writeIt(|
|000005c0| 27 2f 73 68 6f 77 6c 69 | 6e 65 20 7b 20 67 73 61 |'/showli|ne { gsa|
|000005d0| 76 65 20 73 68 6f 77 20 | 67 72 65 73 74 6f 72 65 |ve show |grestore|
|000005e0| 20 30 20 2d 37 20 72 6d | 6f 76 65 74 6f 20 7d 20 | 0 -7 rm|oveto } |
|000005f0| 64 65 66 27 29 3b 0d 20 | 09 77 72 69 74 65 49 74 |def');. |.writeIt|
|00000600| 28 27 2f 43 6f 75 72 69 | 65 72 20 66 69 6e 64 66 |('/Couri|er findf|
|00000610| 6f 6e 74 20 37 20 73 63 | 61 6c 65 66 6f 6e 74 20 |ont 7 sc|alefont |
|00000620| 73 65 74 66 6f 6e 74 27 | 29 3b 0d 20 09 77 72 69 |setfont'|);. .wri|
|00000630| 74 65 49 74 28 27 35 30 | 20 37 35 30 20 6d 6f 76 |teIt('50| 750 mov|
|00000640| 65 74 6f 27 29 3b 0d 20 | 09 77 72 69 74 65 49 74 |eto');. |.writeIt|
|00000650| 28 27 28 74 68 69 73 20 | 69 73 20 61 20 6c 69 6e |('(this |is a lin|
|00000660| 65 29 20 73 68 6f 77 6c | 69 6e 65 27 29 3b 0d 20 |e) showl|ine');. |
|00000670| 09 77 72 69 74 65 49 74 | 28 27 28 73 6f 20 69 73 |.writeIt|('(so is|
|00000680| 20 74 68 69 73 21 29 20 | 73 68 6f 77 6c 69 6e 65 | this!) |showline|
|00000690| 27 29 3b 0d 20 09 77 72 | 69 74 65 49 74 28 27 73 |');. .wr|iteIt('s|
|000006a0| 68 6f 77 70 61 67 65 27 | 29 3b 0d 20 0d 20 09 65 |howpage'|);. . .e|
|000006b0| 72 72 3a 3d 50 42 43 6c | 6f 73 65 28 70 62 2c 66 |rr:=PBCl|ose(pb,f|
|000006c0| 61 6c 73 65 29 3b 0d 65 | 6e 64 3b 0d 0d 7b 2d 2d |alse);.e|nd;..{--|
|000006d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006f0| 2d 7d 0d 50 52 4f 43 45 | 44 55 52 45 20 53 65 74 |-}.PROCE|DURE Set|
|00000700| 75 70 57 69 6e 64 6f 77 | 73 3b 0d 56 61 72 09 57 |upWindow|s;.Var.W|
|00000710| 52 65 63 74 3a 20 20 20 | 20 52 65 63 74 3b 0d 09 |Rect:   | Rect;..|
|00000720| 77 74 69 74 6c 65 3a 09 | 73 74 72 32 35 35 3b 0d |wtitle:.|str255;.|
|00000730| 09 77 74 79 70 65 3a 20 | 09 69 6e 74 65 67 65 72 |.wtype: |.integer|
|00000740| 3b 0d 09 56 69 73 3a 20 | 20 09 62 6f 6f 6c 65 61 |;..Vis: | .boolea|
|00000750| 6e 3b 0d 09 47 6f 41 77 | 61 79 3a 20 20 20 62 6f |n;..GoAw|ay:   bo|
|00000760| 6f 6c 65 61 6e 3b 0d 09 | 52 65 66 56 61 6c 3a 20 |olean;..|RefVal: |
|00000770| 20 20 4c 6f 6e 67 49 6e | 74 3b 0d 09 77 70 74 72 |  LongIn|t;..wptr|
|00000780| 3a 20 09 77 69 6e 64 6f | 77 70 74 72 3b 0d 42 65 |: .windo|wptr;.Be|
|00000790| 67 69 6e 20 20 20 0d 20 | 20 20 53 65 74 52 65 63 |gin   . |  SetRec|
|000007a0| 74 28 57 52 65 63 74 2c | 31 30 2c 34 30 2c 32 33 |t(WRect,|10,40,23|
|000007b0| 30 2c 31 35 30 29 3b 20 | 20 0d 20 20 20 77 74 79 |0,150); | .   wty|
|000007c0| 70 65 20 3a 3d 20 31 36 | 3b 0d 20 20 20 77 74 69 |pe := 16|;.   wti|
|000007d0| 74 6c 65 3a 3d 27 44 61 | 76 69 64 20 45 2e 20 53 |tle:='Da|vid E. S|
|000007e0| 6d 69 74 68 27 3b 0d 20 | 20 20 56 69 73 20 3a 3d |mith';. |  Vis :=|
|000007f0| 20 74 72 75 65 3b 20 20 | 20 20 20 20 20 20 20 20 | true;  |        |
|00000800| 20 20 20 20 20 0d 20 20 | 20 47 6f 41 77 61 79 20 |     .  | GoAway |
|00000810| 3a 3d 20 66 61 6c 73 65 | 3b 20 20 20 20 20 20 20 |:= false|;       |
|00000820| 20 20 20 20 20 20 20 20 | 20 0d 20 09 52 65 66 56 |        | . .RefV|
|00000830| 61 6c 3a 3d 30 3b 0d 20 | 09 77 70 74 72 20 3a 3d |al:=0;. |.wptr :=|
|00000840| 20 4e 65 77 57 69 6e 64 | 6f 77 28 4e 69 6c 2c 57 | NewWind|ow(Nil,W|
|00000850| 52 65 63 74 2c 77 74 69 | 74 6c 65 2c 56 69 73 2c |Rect,wti|tle,Vis,|
|00000860| 77 74 79 70 65 2c 4e 69 | 6c 2c 47 6f 41 77 61 79 |wtype,Ni|l,GoAway|
|00000870| 2c 52 65 66 56 61 6c 29 | 3b 0d 09 53 65 74 50 6f |,RefVal)|;..SetPo|
|00000880| 72 74 28 77 70 74 72 29 | 3b 20 0d 09 54 65 78 74 |rt(wptr)|; ..Text|
|00000890| 46 6f 6e 74 28 47 65 6e | 65 76 61 29 3b 0d 20 09 |Font(Gen|eva);. .|
|000008a0| 4d 6f 76 65 54 6f 28 31 | 30 2c 33 30 29 3b 0d 09 |MoveTo(1|0,30);..|
|000008b0| 44 72 61 77 53 74 72 69 | 6e 67 28 27 57 61 74 63 |DrawStri|ng('Watc|
|000008c0| 68 20 74 68 65 20 4c 61 | 73 65 72 57 72 69 74 65 |h the La|serWrite|
|000008d0| 72 21 27 29 3b 0d 09 4d | 6f 76 65 54 6f 28 31 30 |r!');..M|oveTo(10|
|000008e0| 2c 33 30 29 3b 0d 09 4d | 6f 76 65 28 30 2c 31 35 |,30);..M|ove(0,15|
|000008f0| 29 3b 0d 65 6e 64 3b 0d | 7b 2d 2d 2d 2d 2d 2d 2d |);.end;.|{-------|
|00000900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 7d 0d 50 52 4f 43 45 |--------|-}.PROCE|
|00000920| 44 55 52 45 20 4d 61 69 | 6e 45 76 65 6e 74 4c 6f |DURE Mai|nEventLo|
|00000930| 6f 70 3b 0d 56 61 72 09 | 45 76 65 6e 74 3a 45 76 |op;.Var.|Event:Ev|
|00000940| 65 6e 74 52 65 63 6f 72 | 64 3b 0d 09 6d 79 65 76 |entRecor|d;..myev|
|00000950| 65 6e 74 3a 20 42 6f 6f | 6c 65 61 6e 3b 0d 42 65 |ent: Boo|lean;.Be|
|00000960| 67 69 6e 0d 20 20 20 52 | 65 70 65 61 74 0d 20 20 |gin.   R|epeat.  |
|00000970| 20 20 20 20 53 79 73 74 | 65 6d 54 61 73 6b 3b 20 |    Syst|emTask; |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 20 20 0d 20 20 20 |        |    .   |
|00000990| 20 20 20 6d 79 65 76 65 | 6e 74 20 3a 3d 20 47 65 |   myeve|nt := Ge|
|000009a0| 74 4e 65 78 74 45 76 65 | 6e 74 28 45 76 65 72 79 |tNextEve|nt(Every|
|000009b0| 45 76 65 6e 74 2c 45 76 | 65 6e 74 29 3b 0d 20 20 |Event,Ev|ent);.  |
|000009c0| 20 20 20 20 49 66 20 6d | 79 65 76 65 6e 74 20 74 |    If m|yevent t|
|000009d0| 68 65 6e 20 0d 20 20 20 | 20 20 20 20 20 20 43 61 |hen .   |      Ca|
|000009e0| 73 65 20 45 76 65 6e 74 | 2e 77 68 61 74 20 6f 66 |se Event|.what of|
|000009f0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 75 |.       |     mou|
|00000a00| 73 65 44 6f 77 6e 20 20 | 3a 20 63 6c 6f 73 65 75 |seDown  |: closeu|
|00000a10| 70 3b 20 20 20 20 20 20 | 20 20 20 20 20 20 0d 20 |p;      |      . |
|00000a20| 20 20 20 20 20 20 20 20 | 45 6e 64 3b 7b 6f 66 20 |        |End;{of |
|00000a30| 43 61 73 65 7d 0d 20 20 | 20 55 6e 74 69 6c 20 46 |Case}.  | Until F|
|00000a40| 61 6c 73 65 3b 0d 45 6e | 64 3b 0d 0d 7b 2d 2d 2d |alse;.En|d;..{---|
|00000a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.|
|00000a70| 42 45 47 49 4e 09 7b 6d | 61 69 6e 20 70 72 6f 67 |BEGIN.{m|ain prog|
|00000a80| 72 61 6d 7d 20 20 0d 20 | 20 20 49 6e 69 74 49 74 |ram}  . |  InitIt|
|00000a90| 3b 0d 20 20 20 53 65 74 | 75 70 57 69 6e 64 6f 77 |;.   Set|upWindow|
|00000aa0| 73 3b 0d 20 20 20 4c 61 | 73 65 72 49 74 3b 0d 20 |s;.   La|serIt;. |
|00000ab0| 20 20 4d 61 69 6e 45 76 | 65 6e 74 4c 6f 6f 70 20 |  MainEv|entLoop |
|00000ac0| 0d 45 4e 44 2e 00 00 00 | 00 00 00 00 00 00 00 00 |.END....|........|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b00| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00000b10| d2 c1 53 40 67 12 12 19 | 67 06 58 41 d2 c1 60 f2 |..S@g...|g.XA..`.|
|00000b20| 91 c8 22 48 20 08 4e 75 | 4a 11 67 f4 20 49 12 19 |.."H .Nu|J.g. I..|
|00000b30| 0c 50 61 70 54 65 73 74 | 33 2e 50 41 53 74 02 00 |.PapTest|3.PASt..|
|00000b40| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 00 00 40 |..TEXTED|IT.....@|
|00000b50| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 00 00 40 |..TEXTED|IT.....@|
|00000b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b70| 00 00 a5 69 58 a2 00 00 | 0a 45 00 00 01 5c 67 04 |...iX...|.E...\g.|
|00000b80| 7e 28 70 24 48 46 dc 40 | bc 45 6d 02 9c 40 48 46 |~(p$HF.@|.Em..@HF|
|00000b90| 32 2e ff fc de 41 4a 29 | 00 01 67 06 de 41 de 41 |2....AJ)|..g..A.A|
|00000ba0| 50 47 72 00 12 29 00 03 | 3f 01 a8 88 42 67 2f 0c |PGr..)..|?...Bg/.|
|00000bb0| a8 8c de 5f bc 47 6c 02 | 3c 07 70 00 10 14 49 f4 |..._.Gl.|<.p...I.|
|00000bc0| 00 05 60 a6 58 46 20 53 | 31 46 00 02 48 46 31 46 |..`.XF S|1F..HF1F|
|00000bd0| 00 04 42 67 a8 88 a8 73 | 60 00 fc e4 2f 08 20 55 |..Bg...s|`.../. U|
|00000be0| 48 68 ff e8 a8 9d 3f 3c | 00 0b a8 9c a8 a2 a8 9e |Hh....?<|........|
|00000bf0| 4e 75 00 00 03 24 60 0a | 00 00 43 44 45 46 00 00 |Nu...$`.|..CDEF..|
|00000c00| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f aa 00 00 |.......M|onaco...|
|00000c10| 00 04 00 06 00 04 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00000c20| 00 16 00 00 00 46 00 00 | cc 24 03 50 00 00 00 1c |.....F..|.$.P....|
|00000c30| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00000c40| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 01 7a 00 |........|......z.|
|00000c50| 03 ec ff ff 00 00 00 0e | 00 01 79 fc 00 00 00 00 |........|..y.....|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+